home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / metanet.tst < prev    next >
Text File  |  1999-09-16  |  6KB  |  150 lines
  1. // adj_lists
  2. ta=[2 3 3 5 3 4 4 5 8];
  3. he=[1 2 4 2 6 6 7 7 4];
  4. gt=make_graph('foo',1,8,ta,he);
  5. [lp,la,ls]=adj_lists(1,gt('node_number'),ta,he)
  6.  
  7. // circuit
  8. g=make_graph('foo',1,3,[1 2 3],[2 3 1]);
  9. circuit(g)
  10. g=make_graph('foo',1,4,[1 2 2 3],[2 3 4 4]);
  11. [p,r]=circuit(g)
  12.  
  13. // con_nodes
  14. ta=[1 1 2 2 2 3 4 4 5 7 7 9 10 12 12 13 13 14 15];
  15. he=[2 6 3 4 5 1 3 5 1 8 9 8 11 10 11 11 15 13 14];
  16. gt=make_graph('foo',1,15,ta,he);
  17. con_nodes(2,gt)
  18.  
  19. // connex
  20. ta=[1 1 2 2 2 3 4 4 5 6 7 7 7 8 9 10 12 12 13 13 14 15];
  21. he=[2 6 3 4 5 1 3 5 1 7 5 8 9 5 8 11 10 11 11 15 13 14];
  22. gt=make_graph('foo',1,15,ta,he);
  23. [nc,ncomp]=connex(gt)
  24.  
  25. // find_path
  26. ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
  27. he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 15 12 13 9 10 14 11 16 1 17 14 15];
  28. gt=make_graph('foo',1,17,ta,he);
  29. p=find_path(1,14,gt)
  30.  
  31. // is_connex
  32. g=make_graph('foo',1,3,[1,2,3,1],[2,3,1,3]);
  33. is_connex(g)
  34. g=make_graph('foo',1,4,[1,2,3,1],[2,3,1,3]);
  35. is_connex(g)
  36.  
  37. // mat_2_graph
  38. g=load_graph(SCI+'/demos/metanet/colored');
  39. a=graph_2_mat(g)
  40. g1=mat_2_graph(a,1)
  41.  
  42. // max_cap_path
  43. ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
  44. he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 15 12 13 9 10 14 11 16 1 17 14 15];
  45. gt=make_graph('foo',1,17,ta,he);
  46. ma=gt('edge_number');
  47. gt('edge_max_cap')=[8 17 5 10 15 15 18 15 19 6 13 15 16 8 13 8 8 8 19 15 9 19 8 10 10 9 14];
  48. [p,cap]=max_cap_path(1,14,gt)
  49.  
  50. // max_flow
  51. ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10];
  52. he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1];
  53. gt=make_graph('foo',1,15,ta,he);
  54. g1=gt; ma=g1('edge_number');
  55. g1('edge_min_cap')=0*ones(1,ma);
  56. rand('uniform');
  57. g1('edge_max_cap')=[10.7 7.6 12.9 11.0 9.7 6.4 13.7 9.1 19.4 1.9 10.6 6.3 9.3 6.6 3.6 16.6 5.2 3.2 14.7 4.1 14.9 17.8 9.1 9.2 18.6 3.3 5.0 12.2 12.8];
  58. [v,phi]=max_flow(15,1,g1)
  59.  
  60. // min_lcost_cflow
  61. ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10];
  62. he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1];
  63. gt=make_graph('foo',1,15,ta,he);
  64. g1=gt;ma=g1('arc_number');
  65. g1('edge_min_cap')=0*ones(1,ma);
  66. g1('edge_max_cap')=[15 8 16 6 9 7 19 4 14 7 17 10 12 6 9 10 9 14 6 17 14 8 8 15 17 18 16 8 16];
  67. g1('edge_cost')=[10.7 3.6 8.4 9.3 7.6 10.7 4.9 6.8 2.3 6.0 5.5 3.0 5.0 1.9 2.6 6.1 7.4 2.3 9.2 10.8 3.2 4.4 8.9 2.8 3.9 8.2 4.0 9.8 2.1];
  68. cv=5;
  69. [c,phi,v,flag]=min_lcost_cflow(15,1,cv,g1)
  70.  
  71. // min_lcost_flow1
  72. ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10 1 8];
  73. he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1 12 14];
  74. gt=make_graph('foo',1,15,ta,he);
  75. g1=gt;ma=g1('arc_number');
  76. g1('edge_min_cap')=[17 11 10 5 2 5 16 3 20 15 11 4 6 5 5 3 2 8 0 4 14 1 11 14 13 17 3 3 20 2 17];
  77. g1('edge_max_cap')=[37 36 37 25 26 42 35 23 56 52 43 40 42 26 42 33 24 27 34 23 45 29 49 48 45 42 25 24 56 34 45];
  78. g1('edge_cost')=[8 7 3 2 6 10 6 3 5 10 7 11 2 8 1 2 2 4 8 4 4 4 6 8 9 7 5 11 8 2 8];
  79. [c,phi,flag]=min_lcost_flow1(g1)
  80.  
  81. // min_lcost_flow2
  82. ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10 1 8];
  83. he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1 12 14];
  84. gt=make_graph('foo',1,15,ta,he);
  85. g1=gt;ma=g1('arc_number');
  86. g1('edge_min_cap')=0.*ones(1,ma);
  87. n=g1('node_number');
  88. g1('edge_max_cap')=[32 19 15 33 32 27 32 32 27 27 34 21 18 33 24 32 15 18 19 30 34 24 25 22 17 29 15 27 15 27 29];
  89. g1('edge_cost')=[2 11 5 2 5 7 8 8 4 5 2 4 2 7 10 2 10 8 8 4 4 6 5 5 7 8 7 6 7 6 5];
  90. dd=[14 -20 -4 8 -3 16 5 -23 0 7 -5 16 4 -24 9];
  91. g1('node_demand')=dd;
  92. [c,phi,flag]=min_lcost_flow2(g1)
  93.  
  94. // min_qcost_flow
  95. ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10 1 8];
  96. he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1 12 14];
  97. gt=make_graph('foo',1,15,ta,he);
  98. g1=gt;ma=g1('arc_number');
  99. g1('edge_min_cap')=[3 4 3 0 2 4 1 4 2 0 1 1 4 4 4 1 3 4 1 3 0 3 0 3 1 1 0 2 0 3 5];
  100. g1('edge_max_cap')=[19 9 15 6 16 16 20 22 12 16 13 16 23 16 14 7 15 21 4 15 8 24 2 10 4 4 20 14 11 18 9];
  101. g1('edge_q_orig')=0*ones(1,ma);
  102. g1('edge_q_weight')=ones(1,ma);
  103. [c,phi,flag]=min_qcost_flow(0.2,g1)
  104.  
  105. // min_weight_tree
  106. ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
  107. he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 15 12 13 9 10 14 11 16 1 17 14 15];
  108. gt=make_graph('foo',1,17,ta,he);
  109. t=min_weight_tree(1,gt)
  110.  
  111. // nodes_2_path
  112. ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
  113. he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 15 12 13 9 10 14 11 16 1 17 14 15];
  114. gt=make_graph('foo',1,17,ta,he);
  115. ns=[1 10 15 16 17 14 11 12 13 9 7 8 6];
  116. p=nodes_2_path(ns,gt)
  117.  
  118. // path_2_nodes
  119. ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
  120. he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 15 12 13 9 10 14 11 16 1 17 14 15];
  121. gt=make_graph('foo',1,17,ta,he);
  122. p=[2 16 23 25 26 22 17 18 19 13 10 11];
  123. ns=path_2_nodes(p,gt)
  124.  
  125. // shortest_path
  126. ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10];
  127. he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1];
  128. gt=make_graph('foo',1,15,ta,he);
  129. g1=gt;ma=prod(size(g1('head')));
  130. g1('edge_length')=[13 17 10 6 7 18 18 6 7 14 5 9 5 10 10 2 4 12 15 0 13 4 7 16 11 9 4 16 2];
  131. [p,lp]=shortest_path(13,1,g1,'length')
  132.  
  133. // strong_con_nodes
  134. ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15];
  135. he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14];
  136. gt=make_graph('foo',1,15,ta,he);
  137. ncomp=strong_con_nodes(3,gt)
  138.  
  139. // strong_connex
  140. ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15];
  141. he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14];
  142. gt=make_graph('foo',1,15,ta,he);
  143. [nc,ncomp]=strong_connex(gt)
  144.  
  145. // trans_closure
  146. ta=[2 3 3 5 3 4 4 5 8];
  147. he=[1 2 4 2 6 6 7 7 4];
  148. gt=make_graph('foo',1,8,ta,he);
  149. g1=trans_closure(gt)
  150.